program pr3;
// Подключение модуля для работы с математическими функциями,
// см. табл. 2.6.
uses math;
//Описание всех используемых переменных.
var a,b,c,r,s,alfa,beta,gamma:real;
//Ввод сторон трегольника.
BEGIN
	writeln('Введите стороы теуголика a b c:');
	readln(a,b,c);
	//Вычисление значения полупериметра.
	R:=(a+b+c)/2;
	//Вычисление значения площади,
	//для вычисления применяется функция:
	// sqrt(х) — корень квадратный из х.
	S:=sqrt(r*(r-a)*(r-b)*(r-c));
	//Вычисление значения угла alfa в радианах.
	//Для вычисления применяем функции:
	// acos(х) - арккосинус x;
	// sqr(х) — возведение х в квадрат.
	alfa:=arccos((sqr(b)+sqr(c)-sqr(a))/2/b/c);
	//Вычисление значения угла beta в радианах.
	//Для вычисления применяем функции:
	// asin(х) - арксинус x;
	beta:=arcsin(b/a*sin(alfa));
	//Вычисление значения угла gamma в радианах.
	//Математическая постоянная определена
	//функцией без аргумента pi.
	gamma:=pi-(alfa+beta);
	//Перевод из радиан в градусы.
	alfa:=alfa*180/pi;
	beta:=beta*180/pi;
	gamma:=gamma*180/pi;
	//Вывод площади и сторон треугольника.
	writeln('Площадь теугольника = ', S:6:2);
	writeln('alf = ',alfa:6:2,' bet = ',beta:6:2,' gamma = ',gamma:6:2);
END.	
